﻿Public Class Alumno

    Dim arr As Hashtable
    Private contador As Integer
    Dim cv As Integer


    Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click

    End Sub

    Private Sub Alumno_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        ToolStripProgressBar1.ProgressBar.Visible = False
        ToolStripStatusLabel1.Visible = False

        'Cargamos los cursos por defecto
        Dim c As Curso = New Curso("Curso de Programacion en Moviles Android", 12333221, 1, "Curso", "cursos@urjc.es", "Mostoles", "13/03/2012", "www.urjc.cursos.es", "Cursos abierto")
        arr.Add(contador, c)
        contador = contador + 1
        c = New Curso("Escursion por la Pedriza", 23423421, 1, "Salida", "delegacionalumnos@urjc.es", "Mostoles", "13/03/2012", "www.urjc.cursos.es", "Cursos abierto")
        arr.Add(contador, c)
        contador = contador + 1
        c = New Curso("Seminario de Artes Graficas", 12312312, 1, "Seminario", "seminarios@urjc.es", "Funelabrada", "13/03/2012", "www.urjc.cursos.es", "")
        arr.Add(contador, c)
        contador = contador + 1
        c = New Curso("Curso de inicio a Photoshop", 65776867, 1, "Curso", "cursos@urjc.es", "Mostoles", "13/03/2012", "www.urjc.cursos.es", "Cursos abierto")
        arr.Add(contador, c)
        contador = contador + 1
        c = New Curso("Taller de desarrollo", 8906578, 1, "Taller", "cursos@urjc.es", "Mostoles", "13/03/2012", "www.urjc.cursos.es", "Cursos abierto")
        arr.Add(contador, c)
        contador = contador + 1
        c = New Curso("Concurso de tapas", 5685, 1, "Concurso", "delegacionalumnos@urjc.es", "Mostoles", "13/03/2012", "www.urjc.cursos.es", "Con premios")
        arr.Add(contador, c)
        contador = contador + 1


    End Sub

    Private Sub Alumno_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStripProgressBar1.ProgressBar.Value = 25

    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        End
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    End Sub

    
End Class